home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_22_1988_Transactor_Publishing.d64 / file stripper (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  639b  |  22 lines
  1. 100 rem easyscript file stripper
  2. 110 rem by eric giguere
  3. 120 rem
  4. 130 print"[147]input filename:  ";:gosub 270: fi$=left$(in$,16)
  5. 140 print"output filename: ";:gosub 270: fo$=left$(in$,16)
  6. 150 fl=0: print"opening the files..."
  7. 160 open15,8,15,"i0": gosub 280: if e then 300
  8. 170 open2,8,2,"0:"+fi$+",s,r": gosub 280: if e then 300
  9. 180 open3,8,3,"0:"+fo$+",s,w": gosub 280: if e then 300
  10. 190 get#2,a$: a=asc(a$+chr$(0)): ok=st
  11. 200 if a=128 then get#2,a$: if a$="*" then fl=1: goto 250
  12. 210 if fl=1 and a=13 then fl=0: goto 250
  13. 220 if (a<32 and a<>13) or a>218 then 250
  14. 230 if a>95 and a<192 then 250
  15. 240 if fl=0 then print#3,a$;
  16. 250 if ok=0 then 190
  17. 260 close2: close3: close15: end
  18. 270 open1,0: input#1,in$: close1: print: return
  19. 280 input#15,e,e$: if e<20 then e=0
  20. 290 return
  21. 300 print"disk error: ";e;e$: goto 240
  22.